Código fuente de 'Elimina emails en texto.asp'
<html>
<head>
<title>Elimina emails en texto - Códigos asp, programacion asp, descargas asp, rutinas asp</title>
</head>
<body style="font-family: Arial; font-size: 11pt">
<center><b><font face="Arial" size="3">Elimina emails en texto</font></b></center><br><br>
Esta función permite, dado un texto como parámetro, eliminar las referencias a correos, <br>
sustituyendo cada uno por un mensaje del tipo *correo eliminado* <%
function find_email(text)
dim arraytext
arraytext = split(text," ",-1,1)
email_addresses = filter(arraytext, "@", true, vbtextcompare)
for each field in email_addresses
text = replace(text, field, "<b>*correo eliminado*</b>")
next
find_email=text
end function
response.write "<br><br><b>Cadena original: </b>Esta es una dirección de correo: correo1@hotmail.com y esta es la otra: correo1@yahoo.com<br>"
response.write find_email("<b>Resultado: </b>Esta es la dirección de correo: correo1@hotmail.com y esta es la otra: correo1@yahoo.com")
%>
</body></html>